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This issue represents the 
conclusion of our -first year. Thanks 
to strong support -from our readers, we 

anticipate being around "for quite some 
time to come. There's no time to 
reflect on the past year, other than 
to say it has been a real pleasure, so 
here's wishing you happy computing in 
our second year I We hope you are 
looking forward to it as much as we 



BAS I 



TWO EDUCATIONAL GAMES 



STANDARD: 1A 9A 

Paul Yorke has granted 
permission to print two more of 
programs. These were written by 
and Dave Juckett. The values in 
by 3 matrix are unknown, while 
totals of the rows, columns 
diagonals are known. The user ded 
the unknown values. For the 
program, change only a few lin 
you switch from 
multiplication! These 
children of all -™ ' 



addition 
e great 



us 

his 

Paul 

a 3 

the 
and 
uces 
ond 
and 
to 
for 



REM ADDITION MAGICIAN 
REM LOGIC/ADDITION GAME 
REM FOR ALL AGES 
CALL CLEAR 

REM DESIGNED AND WRITTEN 
REM BY DAVE JUCKETT AND 
REM PAUL YORKE 
REM 1200 STARFISH LANE 
REM STUART FLA. 33494 US 



It 



ADDITION MA 



II 



BY DAVE JUCKE 



tl 



PAUL Y0 



TO B 



INSTRUCTIONS? CY/N 



THEN 290 



180 

A 

190 PRINT 

GICAN" 

200 PRINT 

210 PRINT 

TT AND" 

220 PRINT 

RKE" 

230 FOR 1=1 

240 PRINT 

250 NEXT I 

260 INPUT " 

I "I A* 

270 IF A*»"N" 

G0SUB 2330 

CALL CLEAR 

GUESS=0 

RANDOMIZE 

FOR X=l TO 9 

C(X>=INT(RND*9)+1 

FOR Y=0 TO X-l 

IF C(X)=C(Y)THEN 330 

NEXT Y 

NEXT X 

CALL COLOR (14, 9, 9) 

CALL CHAR(12B, "1B18181B1 
8181818") 

400 CALL CHAR ( 129, "000000FFF 

F000000") 

410 CALL CHAR < 130, "iBIBlSFFF 

F181818") 

420 CALL CHAR (136, 



280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 



FFFFFFFFF 



") 

430 FOR X=9 



TO 21 STEP 4 



— > 
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440 
450 
460 
470 
480 
490 
500 
510 

4 
520 
AR) 
530 
540 



560 
570 
580 
590 

600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 

710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 

860 

870 
8B0 
890 



900 

mo 

920 
930 
940 

930 
960 
¥70 
^80 



CALL VCHAR(5,X, 128, 13) 

NEXT X 

FOR X=5 TO 17 STEP 4 

CALL HCHAR(X, 9, 129,13) 

NEXT X 

CHAR=65 

FOR R0W=6 TO 14 

FOR C0LUMN=10 TO 



STEP 4 
18 STEP 



CALL HCHAR ( ROW , COLUMN , CH 

CHAR=CHAR+1 
NEXT COLUMN 
NEXT ROW 

A(2)-C(l)+C(2)+C(3) 

A(3)-C(4>+C(5)+C<6) 

A(4)-C(7>+C(8)+CC9) 

A(1)»C(3>+C<5)+C<7) 

A(5)-C(l>+C<5)+C(9) 

A(6)«C(1)+C<4)+C<7> 

A(7)-C(2)+C(5)+C(8) 

A(8)=*C(3)+C(6)+C(9> 

FOR X*l TO 5 

C0LUMN=24 

M*=STR*(A(X>) 

R0W=(4*X)-1 

GOSUB 1930 

NEXT X 

FOR X=6 TO 8 

ROW=19 

C0LUMN=C4*X>-14 

M*=STR* ( A ( X ) ) 

GOSUB 1930 

NEXT X 

ROW«3 

C0LUMN=5 

M*="# OF GUESSES " 

GOSUB 1930 

R0W=21 
C0LUMN=7 

M*=" SELECT A LETTER" 
GOSUB 1930 

R0W=23 
C0LUMN=7 

M»«" CHOOSE A NUMBER" 
GOSUB 1930 
FOR R=»7 TO 
FOR COLUMN 



15 
11 



STEP 4 



TO 19 STEP 



CALL GCHAR(R, COLUMN, XX) 

YY-YY+XX 

NEXT COLUMN 

NEXT R 

IF YY«477 THEN 2200 

YY«0 

CALL KEY (0, BOX, STATUS) 
IF B0X>73 THEN 960 

CALL HCHAR (21 5 24, 136) 



FOR DELAY=1 TO 20 
NEXT DELAY 
CALL HCHAR (21, 24, 32) 
IF STATUS=0 THEN 960 
IF B0X<65 THEN 960 
M*=CHR*(BOX) 
R0W=21 
CQLUMN=23 
GOSUB 1930 

CALL KEY (0,N, STATUS) 
IF N>57 THEN 1080 
CALL HCHAR (23, 24, 136) 
FOR DELAY=1 TO 20 
NEXT DELAY 

CALL HCHAR (23, 24, 32) 
IF STATUS=0 THEN 108O 

IF N<49 THEN 1080 

M*=CHR*(N) 

R0W=23 

C0LUMN=23 

GOSUB 1930 

N=N-48 

X=BOX-64 



1260 
1270 



990 
1000 
1010 
1020 

1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 

1230 R0W=3 
1240 C0LUMN=18 

M*=5TR* (GUESS) 

GOSUB 1930 

ON X GOTO 1280,1350,142 
O, 1490, 1560, 1630, 1710, 1780, 1 
850 

IF NOC(l)THEN 2000 

GOSUB 2100 

R0W=7 

C0LUMN=10 

M*=STR*(C(1>) 

GOSUB 1930 

GOTD 880 

IF NOC(2)THEN 2000 

GOSUB 2100 

R0W=7 

C0LUMN=14 

M*=STR*(C(2>) 

GOSUB 1930 

GOTO 880 

IF NOC(3)THEN 2000 

GOSUB 2100 

R0W=7 

C0LUMN=18 

M*=STR*(C<3) ) 

GOSUB 1930 

GOTO 880 

IF NOC(4)THEN 2000 

GDSUB 2100 

ROW^ll 

C0LUMN=10 
M*=STR*(C(4) ) 
GOSUB 1930 



1280 
1290 
1300 
1310 



1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
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1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

,ASC 

1970 

1980 

1990 

2000 

2010 

2O20 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 



GOTO 880 

IF NOC(5)THEN 2000 

GOSUB 2100 

RQW-11 

COLUMN- 14 
M*-STR*(C<5>> 
GOSUB 1930 
GOTO 880 

IF NOC(6>THEN 2000 
GOSUB 2100 
ROW- 11 

COLUMN* 18 

M«-STR*(C<6>> 
GOSUB 1930 
GOTO 880 
REM 

IF NOC(7)THEN 2000 

GOSUB 2100 

R0W=15 

C0LUMN=10 

M*=STR»<C(7>> 

GOSUB 1930 

GOTO 880 

IF NOC(8)THEN 2000 

GOSUB 210O 

R0W=15 

C0LUMN=14 

M*=STR«(C(8) > 

GOSUB 1930 

GOTO 880 

IF NOC(9)THEN 2000 
GOSUB 2100 

ROW-15 
COLUMN- 18 
M*«STR*(C<9)> 
GOSUB 1930 
GOTO 880 
GOTO 1920 
REM GOSUB 
LN-LEN(M») 
FOR 1-1 TO LN 

CALL HCHAR (ROW, COLUMN+1 
<SEG*(M»,I,1))> 

C0LUMN=C0LUMN+1 
NEXT I 

RETURN 

R0W=1 

COLUMN- 10 

M*«"TRY AGAIN" 

GOSUB 1930 



2120 M««"GOOD GUESS!" 

2130 GOSUB 1930 

2140 FOR DELAY- 1 TO 400 

2150 NEXT DELAY 

2160 COLUMVj-10 

2170 M*«" 

2180 GOSUB 1930 

2190 RETURN 

2200 ROW-1 

2210 COLUMN-8 

Ms- "NICE GOING! ! ! ■• 

GOSUB 1930 
2240 FOR DELAY- 1 TO 1000 

NEXT DELAY 

COLUMN-6 

M»-"PLAY AGAIN?? Y/N" 
GOSUB 1930 

CALL KEY <0, KEY, STATUS) 
2300 IF STATUS-0 THEN 2290 
2310 IF KEY-89 THEN 290 
END 

CALL CLEAR 
2340 PRINT "INSTRUCTIONS!" 
2350 PRINT "A 3 BY 3 GRID WI 
LL APPEAR ONTHE SCREEN. EACH 
SQUARE WILL HAVE A LETTER TO 

IDENTIFY IT" 
2360 PRINT 

2370 PRINT "TO THE RIGHT OF 
EACH ROW A NUMBER TELLS YOU 
THE SUM OF THE NUMBERS (0-9) 
IN THAT ROW" 

2380 PRINT "NO DIGITS ARE US 
ED MORE THANONCE" 
2390 PRINT 

2400 PRINT "A NUMBER BELOW E 

AND AT THE END O 
DIAGONALS GIVES 
INFORMATION. " 




ACH C 
F THE 
THE S 



2410 PRINT 

2420 PRINT "USING THIS INFO 

MISSING NUMBERS, 
REPEAT. » 



FOR DELAY=i 
NEXT DELAY 
C0LUMN=10 
M*=" 

GOSUB 1930 
GOTO 960 
ROW-1 

C0LUMN=10 



TO 400 



ENTER THE 
NO DIGITS 
2430 PRINT 

2440 INPUT "PRESS ENTER TO P 
LAY GAME" IB* 
2450 RETURN 



' s the changes from the first 
that atu necessary for the 
ion program i 



program 
multipli 



100 REM MULTIPLICATION* MADN 



110 REM LOGIC/MULTIPLICATIO 
N GAME 

190 PRINT " MULTIPLICATION 
MADNESS" 
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560 A(2)=C(1)*C(2)*C<3> 
570 A<3)-C(4)*C(5)*C<6) 
580 A(4)«C(7)*C(8)*C<9) 
590 A(1)=C(3>*C(5)*C(7> 
600 A(5)«C(1)*C(5>*C(9> 
610 A(6)*C(1)*C(4>*C(7) 
620 A(7)«C(2)*C(5>*C(8> 
630 A(8)»C(3)*C(6)*C(9> 
2370 PRINT "TO THE RIGHT OF 
EACH ROW A NUMBER TELLS YOU 
THE PRODUCTOF THE NUMBERS ( 1 
-9) IN THAT ROW" 
2380 PRINT "ALL DIGITS ARE U 
SED,ALL ONLYONCE 



n 



IvIlDE^r^ ib^sic 



DOM NUMBER" s L| "TO" s H s" PRESS 
ENTER TO END" 

160 CALL KEY(5,K, S) : : IF S< 1 

THEN 160 ELSE IF K<>13 THEN 

130 :: CALL CLEAR :: END 

20000 SUB PATTERNS ( B* (, )):: 

CALL CHAR(62,RPTSC"F", 16) ) s s 

H*="0123456789ABCDEF" 
20010 C*=" > > » > 

> > » »» > >> > > 

»>> » >»> >>>>" ss FOR I 

=48 TO 57 :: CALL CHARPATd, 
P*) s : FOR J=l TD B 

20020 FOR K>1 TO 2 s s B*(I-4 
8, J)=B*(I-48,J)&SEG*(C*, (POS 
(H*,SEG*(PS, J*2+K-2, i) , 1)-1) 

*4+l,4)ss NEXT K :: NEXT J : 
: NEXT I :s 3UBEND 



^ 



EnlarQea Random Numbers 
STANDARD; 1A 2XB 9A 

Many organizations have use -for 
random numbers -for door prizes and 
such. The program listed below will 
print enlarged numbers in a selectable 
range between 1 and 999. While we 
realize many of you have likely seen 
such a program be-fore, have you 
it in only 10 program lin 



100 ON BREAK NEXT is DISPLAY 

AT (9,1) ERASE ALL s "SUPER 99 

MONTHLY" j "ENLARGED RANDOM NU 

MBERS"! » (1-999) ": ; : "LOW: ": "H 
IGHi M 

110 ACCEPT AT (13, 7) VALIDATE ( 

DIGIT)BEEP SIZE<3):L ss ACCE 

PT AT(14,7)VALIDATE(DIGIT)BE 

EP SIZE(3):H :: IF H<L THEN 

100 

120 DISPLAY AT(23,1):"0NE MO 

MENT... LOADING DATA" ss CALL 

PATTERNS(B*(,)> 
130 DISPLAY AT (23,1) ERASE AL 
L: "GETTING NUMBER" s: RANDOM 

I2E is V=INT(RND* (H-L+l) )+L 

ss V*=STR*(V> 

140 FOR 1=1 TO 8 ss FOR J=l 

TO LEN ( V* > s s C*=CSS«B* ( VAL ( SE 

b*(V*,J,l) ),I)ss NEXT J ss F 

S-F*&CS&RPT* ( " U ,28-LEN(C*) ) 

ss C*="" ss NEXT I 

150 DISPLAY AT(9,l)sF» ss F* 

= '" ss DISPLAY AT (22, l)s"PRE 

BS ANY KEY FOR ANOTHER RAN 



- AUGUST 
SUPER 99 



MU 



I F=-L_^r4 



r m 



SYLK BUILDER - VERSION 1.1 



STANDARD: 



1A 2XB MP 3B 4B 5A 6B 7A 9A 



In May, we began discussing SYLK 
■files and offered a prooram to convert 
DIS/FIX 80 -files to SYLK -format. The 
major problem with the method was that 
it involved a number o-f cumbersome 
steps. The problem is solved! The 
modifications listed below will enable 
doing the sector editing in the same 
step as writing the SYLK file! 

The sector editing is 
accomplished via Barry Traver's R_A_W 
program, which many of you may already 
be familiar with. R_A_W is an 
Assemly Language program, but before 
those of you who dread Assembly frown, 
have converted it to Extended BASIC 
using CALL LOAD'S to place the 
assembled code into memory . We highly 
recommend that you SAVE the subprogram 
from lines 21000 to 21480 to disk in 
MERGE format, for possible use in 
other endeavors (name it RAW, which, 
by the way, stands for Read and 
Write) . 

And, another surprise! SYLK fil 
can contain control codes, such 
printer commands! This will allow you 
to set up for fancy printing, such as 
double-strike or condensed print. 

— > 

4 - 

MONTHLY 



by 



The characters for the command* 
even be set up in Tl-Writer, using 
Special Character Mode, which 
covered in March. 



can 

the 

we 



the 
190 
lin 
190 

mak 




to 

and 

the 

and 

to 



Listed below are the c 

May SYLK program. Lines 170 
are changes and the rest of 

additions. Lines 170 
added as an error trap 
certain that your source -file 
not exceed the number o-f rows 
available on the spreadsheet. Be s 
to test your program thoroughly (on 
"work disk"), as the RAW subprogram 
has a lot o-f numbers that could easily 
be keyed incorrectly! 

WARNINGi SYLK Builder 1.1 does not do 

disk read and write error checking! 
Use a "work disk", a disk you would 
not cry over if the data on it were 
ivf* °T "P°il»cl, when creating your 
SYLK files. While we have built a 
number of SYLK file, wit h this program 
without problems, we do not want to 
give the impression that it is 
infallible. We also recommend use of 
a disk that has fewer than 20 files on 
it for quick processing. 

170 IF C>255 THEN DISPLAY AT 

<15,l)s "SOURCE FILE TOO L0N6 

,": "TRUNCATED TO 255 LINES" 

ELSE IF E0F(1>=0 THEN 150 

190 C=MIN(C,255)i: DISPLAY A 

T<6,1): "ENTER DESIRED SYLK F 

ILE NAME": "DSK . " 

380 CLOSE #1 ;, CLOSE #2 :: 

CALL RAW 

390 S=2 

400 D=VAL(SEG*(F2*,1,1>> 

410 DISPLAY AT(24,1)!"READIN 

G SECTOR ";S :: CALL LINKC'R 

EAD",D,S,AS,B*> 

420 IF (SEG«(A*,1,MAX(0,P0S( 

AS," ",1)-1))<>SEG*(F2*,3,10 

) ) * <SEG* <A*, 1 , MAX (0, P0S ( A*, C 

HR* (0) , 1 > -1 ) )< >SEG» (F2», 3,10 

>>THEN S«S+1 it GOTO 410 

430 A*=SEG*<A«,1,12)&CHR*<2> 
&SEG«(A*,14,115) 

440 CALL LINK<"WRITE",D,S,A* 

21000 SUB RAW 
21010 CALL INIT 

21020 CALL LOAD (16360, 87, 82. 
73,84,69,32,39,138) 



21030 CALL LOAD < 16368, 82, 69. 

65,68,32,32,38,192) 

21040 CALL LOAD (16376, 68, 83. 

82,76,78,75,37,50) 

21050 CALL LOAD (8194, 40, 108. 
63,232) ' 

21060 CALL LOAD (9460, 0,0, 0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0) 

21070 CALL LOAD (9482, 0,0, 0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0) 

21080 CALL LOAD (9504, 0,0, 0,0 

,0,0,0,0,0,0,0,0,0,100,32.0, 

46,170,37,12,37,54) 

21090 CALL LOAD (9526, 193, 126 

, 83, 224, 37, 46, 192, 32, 131 , 86. 

194,64,2,41,255,248,4,32,32, 

40,208,193) 

21100 CALL L0AD(9548,9, 131,7 

,4,2,2,37,2,5,128,5,132,128, 
196, 19, 6, 4, 32, 32, 40, 220, 129) 
21110 CALL L0AD(9570,152,1,3 
7, 48, 22, 246, 193, 4, 19, B2, 2, 13 

2,0,7,21,79,4,224,131,208,20 
0, 4) 

21120 CALL L0AD(9592, 131,84, 
200, 4, 36, 252, 5, 132, 168, 4, 131 

,86,200,32,131,86,36,254,2,2 
24,131,224) 

21130 CALL LOAD (9614, 4, 193,2 
,12,15,0, 195, 12, 19, 1, 30, 0, 2, 
^4, 1,0,4,224, 131,208,2, 140) 
21140 CALL LOAD (9636, 32, 0,19 
, 50, 200, 12, 131 , 208, 29, 0, 2, 2, 
64, 0, 152, 18, 37, 49, 22, 238, 160 
, 160) 

21150 CALL LOAD (9658, 37, 22,1 

6,3,192,160,131,210,29,0,192 

, 146, 19,230,200,2, 131,210,5, 

194,194,114) 

21160 CALL LOAD (9680,209, 96, 

131 , 85, 19, 9, 156, 133, 22, 242, 9 

, 133, 2, 6, 37, 2, 156, 182, 22, 237 

,6,5) 

21170 CALL LOAD (9702, 22, 252, 
5, 129, 200, 1 , 37, 0, 200, 9, 36, 25 
0, 200, 12, 36, 248, 6, 153, 16, 226 
,30,0) 

21180 CALL LOAD (9724, 2, 224, 3 
7, 12, 192, 9, 4, 32, 32, 40, 9, 209, 
22, 4, 3, 128, 2, 224, 37, 12, 4, 193 

21190 CALL LOAD (9746, 6, 193,2 
15, 65, 243, 224, 37, 46, 3, 128, 1, 
16, 175, 192, 192,0, 192, 192, 68, 
0,0,0) 

21200 CALL LOAD (9768, 0,0, 0.0 
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,88,32,35,100, 131, 124,2, 1, 15 
8,126,200, 1, 131, 114,4,32,33, 
36) 

21210 CALL LOAD (9790, 208, 96, 
131, 124,32,96,35, 100, 19,20, 1 
93, 32, 32, 42; 192, 68, 2, 2, 38, 38 
,2,3) 

21220 CALL LOAD (9812, O, 6, 156 
,177,22,6,6,3,22,252,193,81, 
6, 149,16,0,16,5,2,36,0,8) 
21230 CALL LOAD (9834, 2, 132,6 
4,0,26,238,4,224,131, 124,2,2 
24,131,224,3,0,0,2,4,32,0,0) 
21240 CALL LOAD (9856, 255, 255 
,255,255,255, 



21250 CALL LOAD (9878, 255, 255 



9 



I 

9 
) 



I 
9 



9 
9 



9 
9 



9 
9 



9 
9 



9 
9 



255, 255, 255, 255, 255, 255) 
21260 CALL LOAD (9900, 255, 



255,255,255,255,2,224) 
'21270 CALL LOAD (9922, 38, 160, 
2,0,128,0,216,0,38,30,4,192, 
2,1,0,2,4,32,32, 12,4,32) 
21280 CALL LOAD (9944,32, 24, 1 
8, 184, 194,32, 131,74,2, 136,0, 
O, 17,78,2, 136,5, 159,21,75,2, 
0) 

21290 CALL LOAD (9966, 3, 192,2 
00,0,131,86,2, 1,38,28,2,2,0, 
2,4,32,32,36,4, 192,2, 1) 
21300 CALL LQAD(9988,0, 1,4,3 
2,32, 12,4,32,32,24,18,184, 19 
2,96,131,74,6,193,2,33,0,1) 
21310 CALL LOAD (10010, 2, 2, 60 
,239,4,224, 131,74,200,8, 131, 
80, 200, 1 , 131 , 76, 200, 2, 131 , 78 
,4,32) 

21320 CALL LOAD ( 10032, 37, 50, 
0,10,2,0,60,239,2,1,38,31,2, 
2,0,128,4,32,32,44,2,32) 
21330 CALL LOAD ( 10054, 0, 12B, 
194,0,4, 192,2, 1,0,3,2,2,38,3 
0,4,32,32, 16, 192,8,2, 1) 
21340 CALL LOAD ( 10076, 38, 31 , 
2,2,0,128,4,32,32,44,4,192,2 

,1,0,4,2,2,38,30,4,32) 
21350 CALL LOAD ( 10098, 32, 16, 

120,32,131,124, 131, 124,2,224 
, 131,224,4,96,0, 112,2,0,30,0 
,4,32) 

21360 CALL LOAD ( 10120, 32, 52, 
2,224,38, 160,2,0, 128,0,216,0 
,38,30,4,192,2, 1,0,2,4,32) 







Two Spreadsheets -for Statistics 
by Charles M. Robertson 



1A 2MP 3B 4B 5A 6B 7A 9A 



STANDARDS 



When a sculpter looks 
of wood or rock, he sees a 
beauty trapped within and 
free it. I try to see in 
from time to time and it 
worth the effort. 



a p l ec e 
thing of 
ts out to 
this way 
is usually 



i 



One 
packages 
happens 
powerful 
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of the least used < 

I awn, Mul tiplan' 1 " 1 
to be one of thi 

My problem has been 



of tware 

also 

1 most 

finding 
— > 



appl icat 
P*id. I 

corporat 

in just i 
After wi 
creativi 

delegate 
clearly 

statist! 



ions -for it once the checkbook has been balanced and the bills ar® 

wish I had a string of restaurants or a couple of multinational 

ions or a nice, -fat stock port-folio to keep track of, but — the 

:es of life -- I don't- What to do with this very powerful raw material? 

ping the dust from the manual, I began to look through the eyes of 

ty for an application that would unlock the power of this program and 

another of life's tediums to my solid-state slave. I saw two things 
— Multiplan (tm) is a very powerful and versatile program? I hate 



*k«4. Th .*f* observations may seem a little disjointed, but creativity is like 
that at times. Besides, I was desperate. I had some data to analyze. 

Statistics, usually referred to as "sadistics" in the classes I took, is 
not a laugh-a-minute pursuit for most. However, few decisions, of consequence 
are reliably made these days without data analysis. Since a spreadsheet is a 
decision tool, I decided to tool it into a tedium cruncher for the data 
analysis I had to perform. This article introduces the first two entries of a 
collection of statistics templates for Multiplan (tm). " * 

^r,^-fT^?-tt r * t T£" mpl * t * c *^ cu l* toB p «rson's •"» th» product -moment correlation 
coefficient. This statistical procedure is one of the most widely used 

indicators of degree-of -relationship in social science. When two numerical 
measures can be obtained for each subject with many subjects, or for each tria 
£i lL?t n .YJ :r L* 1S i. a f measurement, the degree of relationship and the direction 
°t rela tionship between the factors being measured can be developed with this 
statistical procedure. 



not a 
should 
with r 
tempte 
causal 
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associ 
proper 
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b 
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f % \\ stop here with the "statistics language" with one caution. I am 
statistician, so beware. Further, if you Are not a statistician, you 

?• , Red squirrel populations have been found to correlate nicely 
of airline disasters. Be careful of the conclusions you may be 
draw from your data. Correlation indicates relationship, not 
;L am ^ trustinQ that those of you who will use these templates are 
th the measures they calculate and the limitations and pitfalls 
with their use and misapplication. Woe unto the rest. Study of th 
application of the procedures is worthwhile, however, since the 
cal uses of correlational analysis are legion. 



In 
"named" 
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commands 
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Z sugges 
"Pearson 
paired d 



the templates below, where a name occupies a cell, that cell should be 
accordingly (yes, you can make up your own names if you are consistent 
ormulasM where Multiplan (tm) nomenclature is used, you should enter 

the formulas. The templates are designed for expansion to the limits 
data or Multiplan <tm) with the use of Insert Row and Copy Down 

Once the templates are expanded to fit your data you can Copy From 

sheet or enter data directly to the template, 
template with a generic file name such as 
Array notations in COL 1 and 2 represent 
awaiting input, on your spreadsheet. RM) 



lumns of data on another 
t you first save a blank 
" for future use. (ed.i 
ata and should be blank, 



1 



24 



PEARSON'S r 



1ST VARIABLE 2ND VARIABLE X SQUARED 



DATA <X) 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 
15 
16 
17 
18 
19 
20 
21 

22 C0RRELATI0N= 



Y SQUARED 



X*Y 



DATA <Y> 



X*X 



Y*Y 



X*Y 



X(l) 
X(2) 



Y(l) 
Y(2) 



RCC-23*RCC-23 RCC-23*RCt-23 RCC-43*RCC-3D 
RCC-2:*RCE:-23 RCL-21tRCL-21 RCC-4:*RCC-33 



X(N) 
SX 



FOR N* 



Y(N) 
SY 

N 



RCC-2KRCC-2] RCC-23*RCC-2J RCC-43*RCC-33 



SXSQ 



SYSQ 



SXY 



( (N*SXY)-(SX*SY) ) /SQRT( ( (N*SXSQ> - (SX*SX> ) *( (N*SYSQ> 

(SY*SY>> ) 
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WHERE I 



AND 



sx 


IS 


SY 


IS 


SXSQ 


IS 


SYSO 


IS 


SXY 


IS 


N 


IS 


CT NAMES 



SUM(R10:15C1> 
SUM(R10: 15C2) 
SUM (RIO: 15C3) 
SUM (RIO: 15C4) 
SUM<R10: 15C5) 
COUNT (CT) 
RIO: 15C1 



CORRELATION- ( (N*SXY) - (SX*SY) )/SQRT< ( (N*SXSQ) - (SX*SX) ) *( (N*SYSQ)- 

<SY*SY>> ) 

NOTE i USE INSERT ROWS BETWEEN U AND 14 TO ENSURE FORMULAS WHEN 

YOU COPY DOWN ON COLUMNS 3, 4, AND 5. 



The next template calculates the Point-Bi serial correlation coe-f-f icient 
and is particularly useful when one o-f the variables under study is a 
dichotomous variable such as Male-Female, Purchased product-Didn* t purchase 
product, or Voted yes-Voted no, etc. 

The above cautions, re: knowing your limits with statistics, apply even 
more strongly with this proceedure. A test for the significance of the 
correlation coefficient obtained, particularly with a small sample, is 
essential to avoid misinterpreting your results- A template for this 
significance calculation may be forthcoming in this series if interest 

warrants. 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 



POINT-BI SERIAL CORRELATION 



NUM . V AR 



Y SQUARED DICHOT.VAR Y/N CAPTURE 



Y*Y 



Y(l) 
Y(2> 
Y(3) 



Y<N) 
BY 



Rd>13*RCC-n 
RCC-13*RCE-13 
RCC-13*RCE-13 



RCC-U*RC013 



1-YES,0=N0 



1 OR 
1 OR 
1 OR 



X*Y 



RCt-U*RCL-3a 
RCC-HURCC-S] 
RCt-lD*RCC-33 



1 OR RCC-13*RCC-33 



SYSQ 



24 



N- 
BIAS S STDV- 
MEAN Y YES- 
MEAN Y NO- 



CT 

BSSDY 
MYYES 
MYNO 



NO 



SYNO 



26 POINT-BI SERIAL CORRELATION 



(Rpb) IS : ( (MYYEB-MYNO)*SQRT(YES*NO 

) >/ (BSSDY* (YES+NQ) > 



29 - 



WHERE i 


SY 


IS 


SUM(R10: 15C1) 




SYSQ 


IS 


SUM(R10:15C2) 




YES 


IS 


SUM(R10s 15C3) 




SYES 


IS 


SUM(R10:15C4) 




BSSDY 


IS 


SQRT < (SYSQ- (SY*SY> /CT) /CT> 




NO 


IS 


COUNT (N) -YES 




SYNO 


13 


SY-3YYE3 




CT 


IS 


COUNT (N) 




MYYES 


13 


5YYES/YES 




MYNO 


IS 


SYNO/NG 


AND 'N> NA 


MES RIO: 15C1 





NOTE: ROWS SHOULD BE INSERTED BETWEEN 10 AND 15 TO ALLOW THE 

FORMULAS AND NAMES Tu REMAIN EFFECTIVE. 
USE 'COPY DOWN' ON COLUMNS 2 AND 4 AFTER ROWS ARE ADDED 



— > 
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Standards -for the TI 
(or A Tower o-f Babel) 

by Howie Rosenberg 

STANDARD: 1A 2EA 4B 5A 6B 7A 9A 

When I received my first copy o-f 
FORTH DIMENSIONS . The journal o-f the 
FORTH Interest Group (FIG), I tried to 
enter several procjrams that caught my 
eye. To my dismay I couldn't qeL any 
o-f them to work. Each had several 
words which were undefined in any 
reference that I was aware of at the 
time. They certainly weren't FIG 
FORTH, nor were they FORTH 79. In 
point of fact they were the author's 
words, so deeply embedded into his 
mind that he had forgotten that they 
were not standard FORTH words. This 
has happened often since that time, 
but to add to the annoyance I am now 
in possession of FORTH code, written 
for the TI, which has the same 
characteristics. The very properties 
of FORTH which make it so powerful are 
the same factors which could cause 
total confusion among us. The 
language is extensible. The compiler 
can be modified so that the actual 
characteristics of what happens during 
compile and execute time can be 
varied. The characteristics of 
existing words can be easily changed 
by a knowledgable programmer. Even 
those with less expertise can easily 
change the screens on a FORTH disk 
(for better or worse) . 

The original TI public domain 
release had a bug on screen 72 which 
everybody should have corrected by 
now. The version sold by TEX-SOFT did 
not have that bug. On the surface the 
two versions were indistinguishable. 
In addition to those factors which 
could cause total confusion there are 
pitfalls we can fall into in writing 
FORTH code for distribution to others 
which serve to make life difficult for 
them. Both classes of problems Are 
discussed below. Where there Are 
simple solutions they are presented. 
The others Are qoing to require a 
concerted effort by the TI FORTH 
community if we are to avoid a FORTH 
Tower of Babel . 



BOOTING 
basical 1 y 



APPLICATIONS- 
two methods 



—There 

of booting a 
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FORTH application. The code may bfe 
saved as an image using the B3&VE 
utility and loaded using the BLOAD 
word. The user need not then be? 
concerned about words of which he is 
unfamiliar, nor need he do anything 
more than load and run the 
application. I said USER and that's 
the keyword. The situation is not 
unlike having assembly object code. 
Nobody I know enjoys modifying someone 
elses object code. Nor is it fun to 
study it for learning purposes „ 
Commented source code is so much 
nicer. For an application which is 
not likely to require change or 
omizing and is not intended to be 
I for tutorial purposes, BSAVED 
is fine. All other applications 
should be supplied on commented 
screens. FORTH applications disks can 
then be transported with the kernel, 
loader and 90 or 180 screens (single 
or double sided) or as disks 
containing just applications screens. 
Here's a potential problem area. 
During boot after the FORTH system is 
setup screen 3 is loaded. Suppose you 
start with a disk that was initialized 
double sided, and copy a FORTH disk. 
If you use a sector copier which 
copies sector so that it is 
identical to the original disk the 
copy is usable. Otherwise the new 
disk won't boot because the FORTH 
system is looking for screen 3 in the 
wrong place. I've seen several of 
these disks floating around already. 

LOADING OPTIONS Most annoying during 

load is to get an error message such 
as HCHAR ? (meaning that the compiler 
did not recognize HCHAR), and discover 
tljat -GRAPH which compiles HCHAR was 
not loaded by the application screens. 
Doesn't everyone have the Graphics 
options loaded in image on their 
master disk? While a number of users 
do incorporate options which are often 
used on their masters, there is no 
universal combination which everybody 
uses. It turns out that all options 
are loaded by what is called a 
conditional load. If they are already 
loaded, they will not be loaded again, 
hence they can be called in an 
application screen and will be" loaded 
only if not already in the dictionary. 
This still leaves a problem if one 
desires to make the application 
compatible with a sinqle drive system. 
Suppose you are loading an application 

from a disk full of screens. With a 

— > 
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one drive system you -first boot FORTH 
and then switch disks and LOAD the 
application screens. Obviously, if 
any options are called out, an error 
occurs. The conditional load of 
options in the application is probably 
best taken care of by a remark so that 
users can load prior to loading the 
application. Me must do what is 
required to make EVERY FORTH disk 
usable ^by anyone without regard for 
his configuration. 
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FOREIGN WORDS I recently rec 

FORTH disk on which a numb 
applications used the STARTING 
words which appear in appendix 
the FORTH manual. While i 
relatively easy to di«cover the 
of the boot problem, newcomers 
language could be somewhat p 
by all those question marks 
load. Any word that is used 
appl i cat ion , should be defined 
colon definition IN THAT APPLI 
Particular care has to be ta 
avoid the inclusion of your own 
It really is easy to for 

MYWORD is not part of TI FORTH- 



REDEFINED DEFINITIONS Words that 

appear in screen options are easily 
changeable. If any of us start 
assuming that FORTH disks that we 
acquire with intact option screens are 
correct versi ons 
trouble. It's also 
FORTH to change 
appear in the FORTH 
be noted that so doing can play havoc 
with the language in that any word 
that uses the word that you alter will 
also be altered. I would suggest that 
any kernel that has been altered 
should have a note to that effect that 
clearly is displayed during operation. 
I really can't say that nobody should 
ever alter a kernel word because there 
are some bugs and minor inconveniences 
that crop up which if controlled 
properly we can (should) fix. 



re asking for 

relatively easy in 

definitions that 

kernel. It should 



LOADING SCREENS WHICH 

WE LOADING? If a screen 



ARE 
contai ns 



the words 70 LOAD 85 LOAD, placing the 
disk in drive 2 or for that matter 
placing the screen on a double sided 
version of FORTH would cause the wrong 
screen to load. As a result of the 
flexibility in disk formats that we 
enjoy it's better to stick with — > 
for a group of screens and if 
necessary even repeat code from 

- AUGUST 
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elsewhere on a disk to avoid using the 
LOAD word. 

WHAT DO I RUN? Generally speaking, 

most FORTH applications after boot do 
nothing until a word is executed. Of 
course, it's possible to have the 
LOADed screens execute a word which 
places us in a loop which is a program 
like environment. I suspect that many 
applications will take on this format- 
Generally, however, one must execute a 
word to get anything to happen. The 
question usually is which words are 
executable, what do they do, and what 
do I have to put on the stack to make 
it all happen. Another field day for 
the ingenious user because many times 
little or no information is given. In 
addition to the normal FORTH standard 
of depicting the stack conditions (of 
PARAMOUNT importance for Executable 
words), the programmer should include 
sufficient remarks to denote which 
words can be executed and what they 
do. 

CONCLUSIONS Unless we come up with 

a set of standards, and conventions we 
will indeed have a Tower of Babel. 
This is particularly true for kernel 
changes. I expect to be plugging away 
on my TI-99/4A for a long time, and as 
FORTH is my language of choice, I 
would like to see it preserved. 
Perhaps if those of similar interest 
would combine in committee or by 
periodic interchange not unlike our 
FIG brothers at a higher level, we can 
keep Babel from occurring. As for the 
minor annoyances, many of which nr& 
described above, I have spoken to 
several of our FORTH programmers and 
find similar concerns among others in 
our FORTH community. In particular, 
Warren Agee, who helped in formulating 
the ideas presented in this article, 
has a suggestion which, if we can 
implement, will alleviate many of the 
problems. Suppose all FORTH 
programmers used the first screen of 
an application as a document screen. 
All executable words would be listed 
as well as required stack inputs and 
options required. A small price to 
pay in disk space and effort to make 
it a bit easier on us all. So simple, 
we could carry it off!! Any feedback, 
comments or suggestions in this nrm^ 
would be appreciated. Send to this 
magazine or if you like you can 
contact me on CIS (74216,1640). 
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News, Corrections, Updates, Editorials, Kudos, and Come-what-may 



Look for a great new product to 
appear around mid-November. Craig 
Miller has developed "GRAM Cracker", 
a grom port device that will allow 
the loading and/or modification of 
modules from disk or cassette! GRAM 
Cracker uses GRAM and RAM to act as 
the GROM and ROM in the cartridges. 
The device will have 48K of memory, 
user expandable to 88k, allowing the 
loading of several modules at once, 
with the option of software or manual 
selections. Loads are almost instant, 
much like a RAMDISK. An independently 
powered unit, GRAM Cracker will have 
complete documentation. The device 
is not cheap to produce, but the price 
will be very reasonable for what you 
get (under *200 is what we hear). 
Utilities on disk will be included! We 
have tal ked to persons who have seen 
GRAM Cracker in action and they say 
it is fantastic! 



techniques exclusive to 6RAPHX. This 
package retails for *7.00. For more 
information on Asgard products, writt* 
FOB 10306, Rockville, MD 20850 or 
contact your local dealer (in th» 
Philadelphia area, see Pilgrim** Pride 
in Hatboro) . 




Barry Traver is offering 
diskazins, a magazine on disk. The 
yet untitled project is available 
at an introductory price of *30 for 
a six-issue subscription. It is 
available in either DS/SD or SS/SD 
(commercial flippy) format. Several 
top programmers have contributed for 
the upcoming first issue. Barry plans 
to soon have several articles 
available for this publication and 
will be offering material in diskazine 
that will be unique to that 
publication. The diskazine address is 

Editor, Genial 
Green Valley Drive, 
19128. 



Barry Traver, 

Computer ware, 
Philadelphia, PA 



Our Conference on the TI FORUM on 
CompuServe""* 1 now appears to be likely 
for early September. Feel free to 
drop in to discuss Super 99 Monthly. 
Multiplan™ or whatever you wish. We 
will stay in conference until the 
chatter runs dry or CIS runs us out, 
whichever comes first. The likely 
date is either September 14 or 21. 



Software has many fine 
products for the 99/4A. The Asgard 
Light Pen — > Manufactured by Bob Emmel 
of Pennsylvania, this high quality pen 
is an excellent photoreceptor. In 
other words, it will detect I i^ght on 
the screen and tell your program so. 
It will not detect certain colors, 
permitting the mixing of text within 
the program. It is useful for games, 
utilities and educational programs. 
Bundled with it is a 3 proqram disk, 
illustrating its uses in BASIC and 
Extended BASIC. Total price is 
♦18.00. GRAPHX 

package supplements 
artwork included 

drawing system by GRAPHX of Australia. 
It includes 2 disks of new fonts, 
clipart, animation examples and 
pictures that are not only useful (and 
legally usable) in your own works of 
art, but also illustrate some drawing 

C 3 Z 3 1 3 1 3 E 3 C 3 Z 3 Z 3 Z 3 Z 3 Z 3 E 3 C 3 1 3 Z 3 C 3 C 3 Z 3 L 3 C 3 E 3 E 3 C 3 Z 3 C 3 Z 3 Z 3 C 3 E 3 E 3 E 3 E 3 Z 3 C 3 C 3 C 3E 3 E 3 C 3 
E3 CompuServe is a registered trademark of CompuServe Information Services. C3 
E3 Multiplan is a registered trademark of Microsoft Corp. C3 

C3C3C3C3CDC3E3E3CDC3E3C3E3E3E3E3C3C3E3E3E3E3C3C3E3E3C3C3E3E3C3E3C3E3E3C3C3E3C3 
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a news from Myarc (Lou 
Phillips) is that their 128K card will 
soon be updated to eliminate problems 
in handling null strings. Software 
houses are now adapting their programs 
to become Myarc compatible. Read news 
from Myarc first right h Q ^ Q ' 
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